  �  .   k820309    �          2021.12.0   �g                                                                                                          
       B:\1.) Business Cycles and Insurance - Paper\JPE Macro - Final Revisions\Computation\Final Submission\BCI_JPEM\BCI\OEGM_TB.f90 OEGM_TB                      @                                      
                                                                   
                                                                                                                                                                                                                   �               250                                                                                             (               40                                                                                             2               50                                                          
                
                       �?        1.0                                                          
                
                        @        2.0                                                     	     
                
                 �G�z�?        0.345                                                     
     
                
                                 0.0#         @                                                                #XGRID    #XVAL    #X_LOW    #X_HIGH    #NX    #IX    #OMEGA_X             
                                                              
    p          5 O p            5 O p                                    
                                               
                
                                                                
                                                                
                                                                                                                                                                              
                                                                 
                   
                      e���        #         @                                                             	   #BETA    #RATE    #INCOME    #AGRID    #DV    #N_OGRID    #ILOW_OGRID    #IHIGH_OGRID    #ENGRID              
                                               
                
                                               
                
                                               
                
                                               �              
    p          p �           p �                                   
                                               �              
    p          p �           p �                                   D                                                                D                                               (                   p          p (           p (                                   D                                               (                   p          p (           p (                                   D                                              �              
     p          p �           p �                         #         @                                                                #N_OEGM    #BETA     #CHI !   #A_VAL "   #INCOME #   #RATE $   #ILOW %   #IHIGH &   #ENGRID '   #AGRID (   #EV )   #MAXV *   #MAXG +   #MAXC ,   #MAXQ -             
                                                                
                                                
                
                                          !     
                
  @                                       "     
                
                                          #     
                
                                          $     
                
                                           %     (                  p          p (           p (                                   
                                           &     (                  p          p (           p (                                   
                                          '     �              
    p          p �           p �                                   
                                          (     �              
 	   p          p �           p �                                   
                                          )     �              
 
   p          p �           p �                                   
D                                         *     
                 
D                                         +     
                 
D                                         ,     
                 
D                                         -     
          �   �      fn#fn    /  H   J   BCI_PAR    w  H   J   FORTRAN_TB    �  x       RP+BCI_PAR    7  {       NA+BCI_PAR    �  z       NO+BCI_PAR    ,  z       ND+BCI_PAR    �  {       ONE+BCI_PAR    !  {       SIGMA+BCI_PAR    �  }       Y_BAR+BCI_PAR      {       ZERO+BCI_PAR )   �  �       INTERPOLATION+FORTRAN_TB /   -  �   a   INTERPOLATION%XGRID+FORTRAN_TB .   �  H   a   INTERPOLATION%XVAL+FORTRAN_TB /   !  H   a   INTERPOLATION%X_LOW+FORTRAN_TB 0   i  H   a   INTERPOLATION%X_HIGH+FORTRAN_TB ,   �  H   a   INTERPOLATION%NX+FORTRAN_TB ,   �  H   a   INTERPOLATION%IX+FORTRAN_TB 1   A  H   a   INTERPOLATION%OMEGA_X+FORTRAN_TB #   �  x       DISUTILITY+BCI_PAR !   	  �       ENDOGENOUS_GRIDS &   �	  H   a   ENDOGENOUS_GRIDS%BETA &   
  H   a   ENDOGENOUS_GRIDS%RATE (   N
  H   a   ENDOGENOUS_GRIDS%INCOME '   �
  �   a   ENDOGENOUS_GRIDS%AGRID $   2  �   a   ENDOGENOUS_GRIDS%DV )   �  H   a   ENDOGENOUS_GRIDS%N_OGRID ,     �   a   ENDOGENOUS_GRIDS%ILOW_OGRID -   �  �   a   ENDOGENOUS_GRIDS%IHIGH_OGRID (   N  �   a   ENDOGENOUS_GRIDS%ENGRID #   �  �       OEGM_INTERPOLATION *   �  H   a   OEGM_INTERPOLATION%N_OEGM (     H   a   OEGM_INTERPOLATION%BETA '   f  H   a   OEGM_INTERPOLATION%CHI )   �  H   a   OEGM_INTERPOLATION%A_VAL *   �  H   a   OEGM_INTERPOLATION%INCOME (   >  H   a   OEGM_INTERPOLATION%RATE (   �  �   a   OEGM_INTERPOLATION%ILOW )   "  �   a   OEGM_INTERPOLATION%IHIGH *   �  �   a   OEGM_INTERPOLATION%ENGRID )   Z  �   a   OEGM_INTERPOLATION%AGRID &   �  �   a   OEGM_INTERPOLATION%EV (   �  H   a   OEGM_INTERPOLATION%MAXV (   �  H   a   OEGM_INTERPOLATION%MAXG (   "  H   a   OEGM_INTERPOLATION%MAXC (   j  H   a   OEGM_INTERPOLATION%MAXQ 